home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XOVERSTR.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  303b  |  15 lines
  1. {$IBodecl}
  2. {$IOverStr}
  3. {$IPutStr}
  4.  
  5. BEGIN
  6.    ClrScr;
  7.    S := 'Change this field '+#220+#223+#220+#223+#220+#223+
  8.         ' to an alternate pattern, and pad to end of line.';
  9.    PutStr (h,S,1,1,14);
  10.    read;
  11.    PutStr (h,OverStr (#223+#220+#223+#220+#223+#220,S,19,61,#223),1,1,14);
  12.  
  13. END.
  14.  
  15.